2 S=1
5 INPUTA$:C$=LEFT$(A$,1)
6 INPUT"WELCHE ZAHL";A
7 IFLEN(A$)=16THEN9
8 A$=A$+CHR$(160):GOTO7
9 LO=INT(A/256):HI=A-LO*256:PRINTHI;LO
10 OPEN 15,8,15,"I":OPEN 2,8,2,"#"
20 PRINT#15,"U1 2 0 18 "S"
30 T[178]T[170]1:[161]#2,Z$:[139]Z$[178]C$[167]70
40 [139]T[178]255[167]T[178]0:S[178]S[170]1:[137]20
50 [137]30
70 B$[178]"":B$[178]B$[170]C$:[129]T[178]1[164]15:[161]#2,Z$:B$[178]B$[170]Z$:[130]
80 [139]B$[178]A$[167][153]"GEFUNDEN":[137]100
90 [137]30
100 [129]Y[178]1[164]9 :[161]#2,Z$:[130]Y
110 F$[178][199](HI)[170][199](LO)
115 [152]2,F$
120 [152]15,"U2 2 0 18 "S"
200 CLOSE2:CLOSE15